30 PRINT"[147]"TAB(14)"[164][164][164][164][164][164][164][164][164][164][164][164]"
40 PRINTTAB(10)"[192][192][192][192] BIT BANNER [146][192][192][192][192]"
50 PRINTTAB(10)"BY JERRY STURDIVANT"
60 PRINT"        [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
70 PRINT"        .........................."
80 PRINT"          [166][166][166]  [166][166][166][166][166]"
90 PRINT"         [166]   [166]  [166]   [166]     [166]"
100 PRINT"         [166]   [166]  [166]   [166]     ^"
110 PRINT"         [166][166][166][166][166]  [166][166][166][166]    SYMBOL"
120 PRINT"         [166]   [166]  [166]   [166]"
130 PRINT"         [166]   [166]  [166]   [166] [164]"
140 PRINT"      [164]  [166]   [166] [166][166][166][166][166]  [164]_HEIGHT (11 MAX)"
150 PRINT"      [164] .........................."
160 PRINT"      ^ [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
170 PRINT"MARGIN[203] [167][167]   [167][167]_SPACING"
180 PRINT"         ^"
190 PRINT"      COLUMN"
200 PRINT"       WIDTH"
210 INPUT"SELECT HEIGHT";SH
220 INPUT"SELECT COLUMN WIDTH";SW
230 PRINTTAB(15)SW
240 INPUT"[145]SELECT SPACING";SS
250 PRINTTAB(14)INT((80-SH*7)/2)
260 INPUT"[145]SELECT MARGIN";SM
270 INPUT"SELECT SYMBOL";P$(1)
280 PRINT"[147] 0   OF 255 CHARACTORS MAXIMUM"
290 PRINTTAB(13)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
300 PRINTTAB(6)"[192][192][192][192][192][192][192] TYPE MESSAGE [146][192][192][192][192][192][192][192]"
310 PRINT"     ALPHABET - NUMBERS AND ()*+-./"
320 PRINTTAB(6)"'INST DEL' FOR CORRECTIONS"
330 PRINTTAB(6)"SPACE BAR FOR PRINTING PAUSE"
340 PRINTTAB(15)"[192][192][192][192][192][192][192][192][192][192]"
350 PRINT"[175]"
360 D$="":P$(0)=" ":N=1:GOSUB 910
370 GET G$:IFG$=""THEN 370
380 IF G$=CHR$(20)THEN 490
390 IF G$=CHR$(13)THEN 550
400 K=ASC(G$):IF K<40 AND K<>32 OR K>90 OR K=44 OR L=255 THEN 370
410 IF LEN(M$(N))=38 THEN N=N+1:PRINT"[157][157] "
420 M$(N)=M$(N)+G$:L=L+1
430 PRINT"    "L;D$
440 FOR D=1 TO N
450 PRINT
460 NEXT D
470 PRINT M$(N)+"[175]"
480 GOTO 370
490 IF L=0 AND N=1 THEN 280
500 M$(N)=LEFT$(M$(N),LEN(M$(N))-1)
510 PRINT"[145]"M$(N)+"  ":L=L-1:IFL=0THEN280
520 IF M$(N)=""THEN N=N-1
530 IF N=0 THEN 410
540 GOTO 430
550 FOR I=1 TO N
560 M$=M$+M$(I)
570 NEXT I
580 CLOSE 4:OPEN 4,4
590 FOR L=1 TO LEN(M$)
600 N=(ASC(MID$(M$,L,1))-39):N=N-((N=-7)*12)
610 F$=MID$(A$,N*5-4,5)
620 FOR J=0 TO 4
630 B(J)=ASC(MID$(F$,J+1))
640 B(J)=B(J)+(B(J)>96)*96+(B(J)<96)*32+((B(J)=255)*33)
650 NEXT J
660 FOR C=0 TO 4
670 FOR R=6 TO 0 STEP-1
680 L(C,R)=INT(B(C)/2^R)
690 B(C)=B(C)-L(C,R)*2^R
700 NEXT R,C
710 PRINT#4
720 FOR C=0 TO 4
730 FOR W=1 TO SW
740 FOR M=1 TO SM
750 PRINT#4," ";
760 NEXT M
770 FOR R=0 TO 6
780 FOR H=1 TO SH
790 PRINT#4,P$(L(C,R));
800 NEXT H
810 GETZ$:IFZ$=""THEN 830
820 GETZ$:IFZ$=""THEN 820
830 NEXT R
840 PRINT#4
850 NEXT W,C
860 FOR S=1 TO SS
870 PRINT#4
880 NEXT S,L
890 CLOSE 4
900 GOTO63000
910 A$="  <B[161]  [161]B<J<[223]<J((^((     ((((( ##"
915 A$=A$+"  #$(0[192]^[165][169][177]^ A[223]! C[165][165][169]QB[161][169][169]V,4D[223]$"
920 A$=A$+"[210][177][177][177][190]>I[169][169][174]@[167][168][176][192]V[169][169][169]VQ[169][169][170]\  H   !F"
925 A$=A$+"  (4B[161][161]44444[161][161]B4(@[160][165][168]P^[161][189][181]]_[168][168][168]_"
930 A$=A$+"[161][223][169][169]V^[161][161][161]B[161][223][161][161]^[223][169][169][169][161][223][168][168][168][160]^[161][161][169][174][223]((([223] [161][223][161] "
935 A$=A$+CHR$(34)+"![161][255][160][223](4B[161]"
940 A$=A$+"[223]!!!![223]@8@[223][223]0($[223]^[161][161][161]^[223][168][168][168]P^[161][165][162]][223][168][172][170]QR[169][169][169]F[160][160][223][160][160][255]!!![255][208],#,[208][223]"
950 A$=A$+CHR$(34)+","+CHR$(34)+"[223][195]4(4[195][208](/([208][163][165][169][177][193]"
960 RETURN
63000 REM   CONNECT BACK TO LOADSTAR
63010 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:END